(mail-extr-safe-move-sexp): Make sure this doesn't

signal errors even for pathological From headers.

diff --git a/lisp/mail/mail-extr.el b/lisp/mail/mail-extr.el
index e72dd2762d8e52cfd3452df8cc9409eebe3ff505..6b0ba81cb9e76c58415ffc8a4b3aa053d1fbebb0 100644 (file)
--- a/lisp/mail/mail-extr.el
+++ b/lisp/mail/mail-extr.el
@@ -696,7 +696,7 @@ by translating things like \"foo!bar!baz@host\" into \"baz@bar.UUCP\".")
   ;; Safely skip over one balanced sexp, if there is one.  Return t if success.
   (` (condition-case error
         (progn
-          (goto-char (scan-sexps (point) (, arg)))
+          (goto-char (or (scan-sexps (point) (, arg)) (point)))
           t)
        (error
        ;; #### kludge kludge kludge kludge kludge kludge kludge !!!